/* Move */
/* Made by Dell Bond */
/* Version 1.0 */

call zoctimeout 14400
Planet2=ZocAsk("Which planet do you want to move the stuff to?")
stuff=ZocAsk("1 - Fuel Ore, 2 - Organics, 3 - Equipment")
much=ZocAsk("How much do you want to move?")

call zocsend "d"
call zocwait "Planet #"
Planet1=GetNumber(0,0)

call zocsend "qi"
call zocwait "Total Holds    : "
hold=Getnumber(0,0)
call zocsend "l"
call zocsend planet1
call zocsend "^m"

do forever
left= much-hold
if left<=hold then call notmuch
else
call zocsend "tnt"
call zocsend stuff
call zocsend hold
call zocsend "^mql"
call zocsend planet2
call zocsend "^mtnl"
call zocsend stuff
call zocsend hold
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
call next

end

exit

notmuch:
call zocsend "tnt"
call zocsend stuff
call zocsend left
call zocsend "^mql"
call zocsend planet2
call zocsend "^mtnl"
call zocsend stuff
call zocsend left
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
exit

next:
much= left-hold
if much<=hold then call notmuch2
else
call zocsend "tnt"
call zocsend stuff
call zocsend hold
call zocsend "^mql"
call zocsend planet2
call zocsend "^mtnl"
call zocsend stuff
call zocsend hold
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
RETURN(0)

notmuch2:
call zocsend "tnt"
call zocsend stuff
call zocsend much
call zocsend "^mql"
call zocsend planet2
call zocsend "^mtnl"
call zocsend stuff
call zocsend much
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
exit

GetNumber:
holdfinal=""
call zocwait " "
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal